home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / pcl_src.zoo / ctypes.lsp < prev    next >
Encoding:
Text File  |  1992-07-09  |  1.9 KB  |  46 lines
  1. ;;;-*-Mode:LISP; Package: PCL; Base:10; Syntax:Common-lisp -*-
  2. ;;;
  3. ;;; *************************************************************************
  4. ;;; Copyright (c) 1985, 1986, 1987, 1988, 1989, 1990 Xerox Corporation.
  5. ;;; All rights reserved.
  6. ;;;
  7. ;;; Use and copying of this software and preparation of derivative works
  8. ;;; based upon this software are permitted.  Any distribution of this
  9. ;;; software or derivative works must comply with all applicable United
  10. ;;; States export control laws.
  11. ;;; 
  12. ;;; This software is made available AS IS, and Xerox Corporation makes no
  13. ;;; warranty about the software, its performance or its conformity to any
  14. ;;; specification.
  15. ;;; 
  16. ;;; Any person obtaining a copy of this software is requested to send their
  17. ;;; name and post office or electronic mail address to:
  18. ;;;   CommonLoops Coordinator
  19. ;;;   Xerox PARC
  20. ;;;   3333 Coyote Hill Rd.
  21. ;;;   Palo Alto, CA 94304
  22. ;;; (or send Arpanet mail to CommonLoops-Coordinator.pa@Xerox.arpa)
  23. ;;;
  24. ;;; Suggestions, comments and requests for improvements are also welcome.
  25. ;;; *************************************************************************
  26. ;;;
  27.  
  28. (in-package 'pcl)
  29.  
  30. ;;;
  31. ;;; The built-in method combination types as taken from page 1-31 of 88-002R.
  32. ;;; Note that the STANDARD method combination type is defined by hand in the
  33. ;;; file combin.lisp.
  34. ;;;
  35.  
  36. (define-method-combination +      :identity-with-one-argument t)
  37. (define-method-combination and    :identity-with-one-argument t)
  38. (define-method-combination append :identity-with-one-argument nil)
  39. (define-method-combination list   :identity-with-one-argument nil)
  40. (define-method-combination max    :identity-with-one-argument t)
  41. (define-method-combination min    :identity-with-one-argument t)
  42. (define-method-combination nconc  :identity-with-one-argument t)
  43. (define-method-combination or     :identity-with-one-argument t)
  44. (define-method-combination progn  :identity-with-one-argument t)
  45.  
  46.